home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / modula.zoo / _defn_ex_vdiattri.def < prev    next >
Text File  |  1988-04-24  |  3KB  |  126 lines
  1. DEFINITION MODULE VDIAttribs;
  2.  
  3.  
  4. FROM GEMVDIbase IMPORT PxyArrayType;
  5.  
  6.  
  7. (* attribute functions *)
  8.  
  9. PROCEDURE SetWritingMode (Handle, mode: INTEGER): INTEGER;
  10.  
  11. (* set mode used for subsequent drawing operations *)
  12.  
  13.  
  14. PROCEDURE SetColour (Handle, Index: INTEGER; RGBIn: PxyArrayType);
  15.  
  16. (* set colour representation *)
  17.  
  18.  
  19. PROCEDURE SetLineType (Handle, style: INTEGER): INTEGER;
  20.  
  21. (* set polyline line type *)
  22.  
  23.  
  24. PROCEDURE DefineLineStyle (Handle, pattern: INTEGER);
  25.  
  26. (* Set user-defined line style pattern *)
  27.  
  28.  
  29. PROCEDURE SetLineWidth (Handle, width: INTEGER): INTEGER;
  30.  
  31. (* Set polyline line width *)
  32.  
  33.  
  34. PROCEDURE SetLineColour (Handle, ColourIndex: INTEGER): INTEGER;
  35.  
  36. (* sets colour index for subsequent polyline operations *)
  37.  
  38.  
  39. PROCEDURE SetEndLineStyle (Handle, BegStyle, EndStyle: INTEGER);
  40.  
  41. (* set polyline end styles *)
  42.  
  43.  
  44. PROCEDURE SetMarkerType (Handle, symbol: INTEGER): INTEGER;
  45.  
  46. (* set polymarker type *)
  47.  
  48.  
  49. PROCEDURE SetMarkerHeight (Handle, height: INTEGER): INTEGER;
  50.  
  51. (* Set polymarker height *)
  52.  
  53.  
  54. PROCEDURE SetMarkerColour (Handle, ColourIndex: INTEGER): INTEGER;
  55.  
  56. (* set polymarker colour index *)
  57.  
  58.  
  59. PROCEDURE SetAbsCharHeight (Handle, height: INTEGER;
  60.                             VAR CharWidth, CharHeight,
  61.                                 CellWidth, CellHeight: INTEGER);
  62.  
  63. (* Set character height, absolute mode *)
  64.  
  65.  
  66. PROCEDURE SetPointCharHeight (Handle, point: INTEGER;
  67.                               VAR CharWidth, CharHeight,
  68.                                   CellWidth, CellHeight: INTEGER): INTEGER;
  69.  
  70. (* set character cell height, points mode *)
  71.  
  72.  
  73. PROCEDURE SetRotation (Handle, angle: INTEGER): INTEGER;
  74.  
  75. (* set character baseline vector *)
  76.  
  77.  
  78. PROCEDURE SetFont (Handle, font: INTEGER): INTEGER;
  79.  
  80. (* Set text face *)
  81.  
  82.  
  83. PROCEDURE SetGraphicTextColour (Handle, ColourIndex: INTEGER): INTEGER;
  84.  
  85. (* set graphic text colour index *)
  86.  
  87.  
  88. PROCEDURE SetGraphicTextEffects (Handle, Effect: INTEGER): INTEGER;
  89.  
  90. (* set graphic text special effects *)
  91.  
  92.  
  93. PROCEDURE SetGraphicTextAlignment (Handle, HorIn, VertIn: INTEGER;
  94.                                    VAR HorOut, VertOut: INTEGER);
  95.  
  96. (* Set graphic text alignment *)
  97.  
  98.  
  99. PROCEDURE SetFillInteriorStyle (Handle, style: INTEGER): INTEGER;
  100.  
  101. (* set fill interior style *)
  102.  
  103.  
  104. PROCEDURE SetFillStyle (Handle, styleIndex: INTEGER): INTEGER;
  105.  
  106. (* Set fill style index *)
  107.  
  108.  
  109. PROCEDURE SetFillColour (Handle, colourIndex: INTEGER): INTEGER;
  110.  
  111. (* set fill colour index *)
  112.  
  113.  
  114. PROCEDURE SetFillPerimeterVisibility (Handle, perVis: INTEGER): INTEGER;
  115.  
  116. (* set fill perimeter visibility *)
  117.  
  118.  
  119. PROCEDURE DefineFillPattern (Handle: INTEGER;
  120.                              VAR pFillPatt: ARRAY OF INTEGER;
  121.                              planes: INTEGER);
  122.  
  123. (* Set user-defined fill pattern *)
  124.  
  125. END VDIAttribs.
  126.